home *** CD-ROM | disk | FTP | other *** search
/ Resource Library: Multimedia / Resource Library: Multimedia.iso / hypercrd / xcmds / dvlprstc.hqx / Developer Stack 1.3r / card_14376.txt < prev    next >
Text File  |  1991-04-30  |  2KB  |  90 lines
  1. -- card: 14376 from stack: in.3r
  2. -- bmap block id: 12274
  3. -- flags: 4000
  4. -- background id: 14090
  5. -- name: Dogear
  6.  
  7.  
  8. -- part 1 (field)
  9. -- low flags: 00
  10. -- high flags: 2000
  11. -- rect: left=77 top=57 right=199 bottom=308
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 0
  15. -- font id: 67
  16. -- text size: 10
  17. -- style flags: 0
  18. -- line height: 13
  19. -- part name: 
  20.  
  21.  
  22. -- part 2 (field)
  23. -- low flags: 01
  24. -- high flags: 0000
  25. -- rect: left=175 top=221 right=236 bottom=223
  26. -- title width / last selected line: 0
  27. -- icon id / first selected line: 0 / 0
  28. -- text alignment: 1
  29. -- font id: 3
  30. -- text size: 9
  31. -- style flags: 0
  32. -- line height: 12
  33. -- part name: PageNumber
  34.  
  35.  
  36. -- part 3 (button)
  37. -- low flags: 00
  38. -- high flags: 0000
  39. -- rect: left=276 top=203 right=239 bottom=311
  40. -- title width / last selected line: 0
  41. -- icon id / first selected line: 0 / 0
  42. -- text alignment: 1
  43. -- font id: 0
  44. -- text size: 12
  45. -- style flags: 0
  46. -- line height: 16
  47. -- part name: right dogear
  48. ----- HyperTalk script -----
  49. on mouseUp
  50.   if the optionkey is down then pass mouseup
  51.   -- this script handles a diagonally divided button, intended to be
  52.   --  a right dogear
  53.   put (item 1 of the clickLoc) - (item 1 of the rect of the target) into x
  54.   put (item 4 of the rect of the target) - (item 2 of the clickLoc) into y
  55.   put card field pageNumber into tempNumber
  56.   if (x < y) then              -- click is in upper left
  57.     visual scroll left very fast to gray
  58.     visual scroll left very fast
  59.     go this card
  60.     put tempnumber+1 into card field PageNumber
  61.   else
  62.     visual scroll right very fast to gray
  63.     visual scroll right very fast
  64.     go this card
  65.     put tempnumber-1 into card field PageNumber
  66.   end if
  67. end mouseUp
  68.  
  69.  
  70.  
  71. -- part contents for card part 2
  72. ----- text -----
  73. 8
  74.  
  75. -- part contents for card part 1
  76. ----- text -----
  77. ΓÇó┬áFrom David Dunham's "fido" which has a REAL dog-ear button. The Dog Ear acts like opposed triangle-shaped buttons.  Copy and Paste into your stacks (Delphi:  DDUNHAM; CIS 76074,762; AppleLink D0457).   
  78.  
  79.  
  80. -- part contents for background part 5
  81. ----- text -----
  82. 1
  83.  
  84. -- part contents for background part 12
  85. ----- text -----
  86. Dog Ear
  87.  
  88. -- part contents for background part 13
  89. ----- text -----
  90. Buttons